home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / MAL ©P.f.Howden 1⁄1⁄89 / GRAF-DATA < prev    next >
Text File  |  1994-02-26  |  2KB  |  40 lines
  1. 1 CLEAR:CLS:RESTORE:PRINT"GRAPLOTS. Multidata Auto-axis low resolution GRAPHING.
  2. 2 PRINT"Can use Printer like Imagewriter. Or screen capture.":PRINT"! Preset W in line 5; usually W=70 for wide paper print.":PRINT" O on AXIS means X=0.  <- indicates offscale ->
  3. 3 PRINT"Insert data sequentially on lines 200... as DATA X1,Y11,Y12,...,X2,Y21,Y22,.....
  4. 4 PRINT:INPUT "NUMBER of FUNCTIONS=";Q:PRINT"Vertical X-axis is assigned to data Y1.";
  5. 5 W=70:W=W+1:C1=INT(W/5):DIM M$(4),Y(Q),C(Q):' ! Preset W=number of characters/line.
  6. 6 FOR J=1 TO C1:M$(0)=M$(0)+"v----":NEXT J:FOR J=1 TO W:M$(1)=M$(1)+"-":NEXT J
  7. 7 PRINT" ! Data inputs best if max. 2 digits used.":FOR J=1 TO Q:PRINT"LOWEST  Y";J;"=";:INPUT A(J)
  8. 8 PRINT"UPPER Y";J;"=";:INPUT B:C(J)=ABS(B-A(J))
  9. 9 IF C(J)/C1-INT(C(J)/C1+.5)<>0 THEN C(J)=C(J)+1:GOTO 9
  10. 11 Y(0)=INT(-A(1)*C1*5/C(1)+.5)+1:IF Y(0)>W THEN Y(0)=W:GOTO 13
  11. 12 IF Y(0)<1 THEN Y(0)=1
  12. 13 NEXT J:PRINT"! Coincident points write over lower numbered points.":INPUT"                      Use the Printer (1/0?)=";PP
  13. 15 INPUT "STARTING Xo=";X0:INPUT "X INCREMENT (+or-)=";L:CLS:PRINT"Xo=";X0;"   X INCREMENT=";L:IF PP=1 THEN LPRINT"Xo=";X0;"   X INCREMENT=";L
  14. 20 X0=X0/ABS(L)
  15. 25 FOR N=1 TO Q:FOR J=1 TO INT(W/5):PRINT TAB(4.4*(J-1));A(N)+(J-1)*C(N)/C1;:NEXT J:PRINT:NEXT N
  16. 27 IF PP=1 THEN FOR N=1 TO Q:FOR J=1 TO INT(W/5):LPRINT TAB(5*(J-1));A(N)+(J-1)*C(N)/C1;:NEXT J:LPRINT:NEXT N
  17. 30 PRINT M$(0):IF PP=1 THEN LPRINT M$(0)
  18. 32 GOSUB 120
  19. 35 M$(2)=M$(1):Y=Y(0):V$="+"
  20. 40 GOSUB 100:IF X0<>X1 THEN PRINT M$(2):IF PP=1 THEN LPRINT M$(2)
  21. 43 IF X0<>X1 THEN X0=X0+SGN(L):GOTO 35
  22. 45 FOR J=1 TO Q
  23. 50 Y=INT(Y(J)-A(J))*5*C1/C(J)+1:IF Y>W THEN V$=">":Y=W:GOTO 70
  24. 55 IF Y<1 THEN V$="<":Y=1:GOTO 70
  25. 60 V$=CHR$(J+48)
  26. 70 GOSUB 100:NEXT J:PRINT M$(2):IF PP=1 THEN LPRINT M$(2)
  27. 80 X0=X0+SGN(L):GOTO 32
  28. 100 IF X0=0 THEN V$="O"
  29. 101 M$(3)=LEFT$(M$(2),Y-1):M$(4)=MID$(M$(2),Y+1,W-Y):M$(2)=M$(3)+V$+M$(4):RETURN
  30. 120 READ X1:IF X1=1E-10 THEN PRINT"END":GOTO 123:ELSE 125
  31. 123 GOTO 123
  32. 125 X1=X1/ABS(L)
  33. 130 IF SGN(L*(X1-X0))<0 THEN PRINT"ERROR: Check X Data sequence & Start again.":GOTO 135:ELSE 140
  34. 135 GOTO 135
  35. 140 FOR J=1 TO Q:READ Y(J):NEXT J:RETURN
  36. 200 DATA -4,-40,-10,-2,-30,-20,2,-20,-30
  37. 210 DATA 4 ,-10,-40,6,-5,-45,8,0,-55,12,20,-75,14,30,-80
  38. 1000 DATA 1E-10:' Don't delete this line !
  39. 2000 '  MACINTOSH COMPUTER
  40.